home *** CD-ROM | disk | FTP | other *** search
- (set hhd
- (Askdir
- (Prompt "SELECT A DIRECTORY FOR INSTALLING ITS")
- (HElp "This Is Where ITS Will Be Installed To !! If Installing In A Drawer Please Add A Slash (/) At The End Of The Drawers Name !")
-
- (Default @default-dest)
- )
- )
- (Set @Default-dest HHD)
- (Askdisk
- (Prompt "Please Insert C-1 In Any Drive")
- (HELP "You Must Do This !!")
- (dest "C-1")
- (newname (tackon HHD "ITS/C-1"))
- )
- (Makedir (Tackon HHD "ITS"))
- (Textfile
- (Dest (Tackon HHD "ITS-HD"))
- (Append "Assign C-1: " @Default-dest "ITS/C-1\n")
- (Append "Assign C-2: " @Default-dest "ITS/C-2\n")
- (Append "Assign C-3: " @Default-dest "ITS/C-3\n")
- (Append "cd " @Default-Dest "ITS/C-1\n")
- (Append "Run >NIL: ITS\n")
- (Append "ENDCLI\n")
- )
-
- (copyfiles
- (source "C-1:Libs/amos.library")
- (dest "SYS:Libs/")
- )
-
- (copyfiles
- (source "C-1:ITS-HD.info")
- (dest @Default-dest)
- )
- (Copyfiles
- (Source "C-1:")
- (Dest (Tackon HHD "ITS/C-1"))
- (All)
- )
-
- (askdisk
- (prompt "Please Insert C-2 In Any Drive")
- (HELP "You Must Do This To Proceed")
- (dest "C-2")
- (newname (Tackon HHD "ITS/C-2"))
- )
-
- (Copyfiles
- (source "C-2:")
- (dest (tackon HHD "ITS/C-2"))
- (All)
- )
- (AskDisk
- (prompt "Please Insert C-3 In Any Drive")
- (HELP "You Must Do This To Proceed")
- (dest "C-3")
- (newname (tackon HHD "ITS/C-3"))
- )
- (Copyfiles
- (Source "C-3:")
- (Dest (tackon HHD "ITS/C-3"))
- (all)
- )
- (message "* PLEASE RESET YOUR AMIGA WHEN INSTALLATION FINISHES")
-